% Dim forumtitle, forumid, allforum appid = ""&request("appid") if isNumeric(appid) and appid<>"" then appid=clng(appid) %>